home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / LORES-HIRES PLOTTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 10  GR : HOME : GOTO 30
  2. 20 C = N -C: PLOT X,Y: RETURN 
  3. 30  HGR : VTAB 21
  4. 40  PRINT "COMMANDS ARE Y (YES, PLOT), N (NO PLOT), U (UP), D (DOWN), L (LEFT), R (RIGHT), H (HGR 1), G (GR), CTRL-C TO EXIT"
  5. 50  CALL  -1994: POKE  -16298,0: HCOLOR= 7:X = 19:Y = X
  6. 60 N = 6:NP = 1
  7. 70  FOR I = 0 TO 1:K =  PEEK( -16384):I = K >128: GOSUB 20: NEXT I: POKE  -16368,0
  8. 80  IF K = 213  THEN  GOTO 220
  9. 90  IF K = 196  THEN  GOTO 240
  10. 100  IF K = 210  THEN  GOTO 260
  11. 110  IF K = 204  THEN  GOTO 280
  12. 120  IF K = 217  THEN N = 12:NP = 0
  13. 130  IF K = 206  THEN N = 6:NP = 0
  14. 140  IF K = 205  THEN N = 6:NP = 1
  15. 150  IF K = 200  THEN  POKE  -16297,0
  16. 160  IF K = 199  THEN  POKE  -16298,0
  17. 170  IF K = 195  THEN  HGR : GR :PC = 0
  18. 180 C = 0: GOTO 70
  19. 190  IF NP  THEN  COLOR= PC: PLOT X,Y: RETURN 
  20. 200  IF N = 6  THEN  HCOLOR= 4
  21. 210  HPLOT 100 +X,100 +Y: HCOLOR= 7: COLOR= N *(N = 12): PLOT X,Y: RETURN 
  22. 220  IF Y = 0  THEN  PRINT  CHR$(7);: GOTO 70
  23. 230  GOSUB 190:Y = Y -1:PC =  SCRN( X,Y): GOTO 70
  24. 240  IF Y = 39  THEN  PRINT  CHR$(7);: GOTO 70
  25. 250  GOSUB 190:Y = Y +1:PC =  SCRN( X,Y): GOTO 70
  26. 260  IF X = 39  THEN  PRINT  CHR$(7);: GOTO 70
  27. 270  GOSUB 190:X = X +1:PC =  SCRN( X,Y): GOTO 70
  28. 280  IF X = 0  THEN  PRINT  CHR$(7);: GOTO 70
  29. 290  GOSUB 190:X = X -1:PC =  SCRN( X,Y): GOTO 70